home *** CD-ROM | disk | FTP | other *** search
/ Softdisk for Windows 38 / Softdisk for Windows 38.iso / oilpro / OILPRO.EXE / OILPRO.DXR / 00004.ls < prev    next >
Encoding:
Text File  |  1997-08-20  |  2.9 KB  |  106 lines
  1. on exitFrame
  2.   global FLAG, GRID, GRIDX, GRIDY, GRIDNUM, OILX, OILY, DR, GRIDNUMBER, OILCNT, DEAD, STARTED, LIGHTCNT, BALLCNT, FAST, SPEED, STATUSFLAG, OPTIONFLAG, BUTTONSTATUS, ARROWCNT, GAUGECNT, CROSSES, BONUSROUND, BONUSTOT, LEVEL, NEEDED, SCORE, OILCLOCK, NEWGAME, nosound, CROSSGRIDS, BLOCKGRID, OILRIG, SG, SGG
  3.   set OILRIG to 0
  4.   set BLOCKGRID to 0
  5.   set CROSSGRIDS to []
  6.   set nosound to 0
  7.   set NEWGAME to 0
  8.   set LEVEL to 0
  9.   set NEEDED to 0
  10.   set SCORE to 0
  11.   set the text of field "LEVELTXT" to "0"
  12.   set the text of field "NEEDEDTXT" to "0"
  13.   set the text of field "SCORETXT" to "0"
  14.   set OILCLOCK to 0
  15.   set the text of field "CLOCKTXT" to "0"
  16.   repeat with n = 1 to 117
  17.     if getAt(GRIDNUM, n) <> -1 then
  18.       setAt(GRIDNUM, n, 0)
  19.     end if
  20.   end repeat
  21.   set BONUSTOT to 5000
  22.   set BONUSROUND to 0
  23.   set CROSSES to 0
  24.   set SCORE to 0
  25.   set GAUGECNT to 0
  26.   set ARROWCNT to 1
  27.   set OPTIONFLAG to 0
  28.   set BUTTONSTATUS to 0
  29.   puppetSprite(25, 1)
  30.   set the castNum of sprite 25 to 150
  31.   puppetSprite(28, 1)
  32.   set the castNum of sprite 28 to 218
  33.   repeat with n = 7 to 8
  34.     puppetSprite(n, 1)
  35.     set the visible of sprite n to 1
  36.   end repeat
  37.   set the castNum of sprite 7 to cast "BOTBUTA1"
  38.   set the castNum of sprite 8 to cast "BOTBUTB1"
  39.   set OPTIONFLAG to 1
  40.   set SPEED to 2
  41.   set FAST to 0
  42.   set STARTED to 0
  43.   set DEAD to 0
  44.   set OILCNT to 0
  45.   SETUPTILES()
  46.   PUSHUP()
  47.   cursor(-1)
  48.   puppetSprite(3, 1)
  49.   set the castNum of sprite 3 to cast "BALL0"
  50.   set BALLCNT to 0
  51.   puppetSprite(4, 1)
  52.   set the castNum of sprite 4 to cast "LIGHT1"
  53.   set LIGHTCNT to 1
  54.   repeat with n = 5 to 6
  55.     puppetSprite(n, 1)
  56.     set the locH of sprite n to -2000
  57.     set the locV of sprite n to -2000
  58.     updateStage()
  59.   end repeat
  60.   puppetSprite(40, 1)
  61.   set the locH of sprite 40 to -2000
  62.   set the locV of sprite 40 to -2000
  63.   puppetSprite(21, 1)
  64.   set the locH of sprite 21 to -2000
  65.   set the locV of sprite 21 to -2000
  66.   updateStage()
  67.   set SG to random(4)
  68.   set the castNum of sprite 21 to SG + 45
  69.   set DR to SG
  70.   set SGG to 0
  71.   repeat while SGG = 0
  72.     set SG to random(116)
  73.     if getAt(GRIDNUM, SG) = 0 then
  74.       set SGG to 1
  75.     end if
  76.   end repeat
  77.   set the locH of sprite 21 to getAt(GRIDX, SG)
  78.   set the locV of sprite 21 to getAt(GRIDY, SG)
  79.   set OILX to getAt(GRIDX, SG) + 20
  80.   set OILY to getAt(GRIDY, SG) + 20
  81.   set GRIDNUMBER to SG
  82.   set the locH of sprite 40 to OILX
  83.   set the locV of sprite 40 to OILY
  84.   startTimer()
  85.   setAt(GRIDNUM, SG, 100)
  86.   updateStage()
  87.   set STATUSFLAG to 0
  88.   set the mouseDownScript to "GETLINK"
  89.   GETNEWLEVEL()
  90.   if OILRIG <> 0 then
  91.     set the mouseDownScript to EMPTY
  92.     set the visible of sprite 7 to 0
  93.     set the visible of sprite 8 to 0
  94.     set the mouseDownScript to EMPTY
  95.     play frame "OILRIGIN"
  96.     set the mouseDownScript to "GETLINK"
  97.     set the visible of sprite 7 to 1
  98.     set the visible of sprite 8 to 1
  99.     REFRESHBOARD()
  100.     updateStage()
  101.   end if
  102.   set the keyDownScript to EMPTY
  103.   REFRESHBOARD()
  104.   startTimer()
  105. end
  106.